home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_setpd.ps < prev    next >
Text File  |  1996-01-10  |  20KB  |  623 lines
  1. %    Copyright (C) 1994, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % The current implementation of setpagedevice has the following limitations:
  19. %    - It doesn't attempt to "interact with the user" for Policy = 2.
  20.  
  21. languagelevel 1 .setlanguagelevel
  22. level2dict begin
  23.  
  24. % ---------------- Redefinitions ---------------- %
  25.  
  26. % Redefine .beginpage and .endpage so that they call BeginPage and
  27. % EndPage respectively if appropriate.
  28.  
  29. /.beginpage
  30.  { .currentshowpagecount
  31.     { .currentpagedevice pop /BeginPage .knownget { exec } { pop } ifelse }
  32.    if
  33.  } bind odef
  34.  
  35. /.endpage
  36.  { .currentshowpagecount
  37.     { exch .currentpagedevice pop /EndPage .knownget
  38.        { exec }
  39.        { exch pop 2 ne }
  40.       ifelse
  41.     }
  42.     { 2 ne
  43.     }
  44.    ifelse
  45.  } bind odef
  46.  
  47. % Define interpreter callouts for handling gstate-saving operators,
  48. % to make sure that they create a page device dictionary for use by
  49. % the corresponding gstate-restoring operator.
  50. % We'd really like to avoid the cost of doing this, but we don't see how.
  51. % The names %gsavepagedevice, %savepagedevice, %gstatepagedevice,
  52. % %copygstatepagedevice, and %currentgstatepagedevice are known to the
  53. % interpreter.
  54.  
  55. (%gsavepagedevice) cvn
  56.  { currentpagedevice pop gsave
  57.  } bind def
  58.  
  59. (%savepagedevice) cvn
  60.  { currentpagedevice pop save
  61.  } bind def
  62.  
  63. (%gstatepagedevice) cvn
  64.  { currentpagedevice pop gstate
  65.  } bind def
  66.  
  67. (%copygstatepagedevice) cvn
  68.  { currentpagedevice pop copy
  69.  } bind def
  70.  
  71. (%currentgstatepagedevice) cvn
  72.  { currentpagedevice pop currentgstate
  73.  } bind def
  74.  
  75. % Define interpreter callouts for handling gstate-restoring operators
  76. % when the current page device needs to be changed.
  77. % The names %grestorepagedevice, %grestoreallpagedevice,
  78. % %restorepagedevice, and %setgstatepagedevice are known to the interpreter.
  79.  
  80. /.installpagedevice
  81.  {    % Since setpagedevice doesn't create new device objects,
  82.     % we must (carefully) reinstall the old parameters in
  83.     % the same device.
  84.    .currentpagedevice pop null currentdevice null .trysetparams
  85.    dup type /booleantype eq
  86.     { pop pop }
  87.     {        % This should never happen!
  88.       DEBUG { (Error in .trysetparams!\n) print pstack flush } if
  89.       cleartomark pop pop pop
  90.       /.installpagedevice cvx /rangecheck signalerror
  91.     }
  92.    ifelse pop pop
  93.    erasepage initgraphics .beginpage
  94.  } bind def
  95.  
  96. /.uninstallpagedevice
  97.  { 2 .endpage { .currentnumcopies false .outputpage } if
  98.    nulldevice
  99.  } bind def
  100.  
  101. (%grestorepagedevice) cvn
  102.  { .uninstallpagedevice grestore .installpagedevice
  103.  } bind def
  104.  
  105. (%grestoreallpagedevice) cvn
  106.  { .uninstallpagedevice grestore .installpagedevice grestoreall
  107.  } bind def
  108.  
  109. (%restorepagedevice) cvn
  110.  { .uninstallpagedevice grestore .installpagedevice restore
  111.  } bind def
  112.  
  113. (%setgstatepagedevice) cvn
  114.  { .uninstallpagedevice setgstate .installpagedevice
  115.  } bind def
  116.  
  117. % Redefine .currentnumcopies so it consults the NumCopies device parameter.
  118. /.numcopiesdict mark
  119.   /NumCopies dup
  120. .dicttomark readonly def
  121.  
  122. /.currentnumcopies
  123.  { currentdevice //.numcopiesdict .getdeviceparams
  124.    dup type /integertype eq
  125.     { exch pop exch pop }
  126.     { cleartomark #copies }
  127.    ifelse
  128.  } bind odef
  129.  
  130. % ---------------- Auxiliary definitions ---------------- %
  131.  
  132. % Define the required attributes of all page devices, and their default values.
  133. % We don't include attributes such as .MediaSize, which all devices
  134. % are guaranteed to supply on their own.
  135. /.defaultpolicies mark
  136.   /PolicyNotFound 1
  137.   /PageSize 0
  138.   /PolicyReport {pop} bind
  139. .dicttomark readonly def
  140. /.requiredattrs mark
  141.   /PageOffset [0 0] readonly
  142. % We define InputAttributes and OutputAttributes with a single
  143. % dummy media type that handles pages of any size.
  144. % Devices that care will override this.
  145.   /InputAttributes mark 0
  146.     mark /PageSize [0 dup 16#7ffff dup] .dicttomark readonly
  147.   .dicttomark readonly
  148.   (%MediaSource) 0
  149.   /OutputAttributes mark 0
  150.     mark .dicttomark readonly
  151.   .dicttomark readonly
  152.   (%MediaDestination) 0
  153.   /Install {.callinstall} bind
  154.   /BeginPage {.callbeginpage} bind
  155.   /EndPage {.callendpage} bind
  156.   /Policies .defaultpolicies
  157. .dicttomark readonly def
  158.  
  159. % Define currentpagedevice so it creates the dictionary on demand if needed,
  160. % adding all the required entries defined just above.
  161. % We have to deal specially with entries that the driver may change
  162. % on its own.
  163. /.dynamicppkeys mark
  164.   /PageCount dup
  165. .dicttomark readonly def
  166. /.makecurrentpagedevice        % - .makecurrentpagedevice <dict>
  167.  { currentdevice null .getdeviceparams
  168.     % In case of duplicate keys, .dicttomark takes the entry
  169.     % lower on the stack, so we can just append the defaults here.
  170.    .requiredattrs { } forall .dicttomark
  171.    dup .setpagedevice
  172.  } bind def
  173. /currentpagedevice
  174.  { .currentpagedevice
  175.     { dup length 0 eq
  176.        { pop .makecurrentpagedevice
  177.        }
  178.        {    % If any of the dynamic keys have changed,
  179.         % we must update the page device dictionary.
  180.      currentdevice //.dynamicppkeys .getdeviceparams .dicttomark
  181.       {    % Stack: current key value
  182.         2 index 2 index .knownget { 1 index ne } { true } ifelse
  183.          { 2 index wcheck not
  184.         {    % This is the first entry being updated.
  185.             % Copy the dictionary to make it writable.
  186.           3 -1 roll dup length dict copy
  187.           3 1 roll
  188.         }
  189.            if
  190.            2 index 3 1 roll put
  191.          }
  192.          { pop pop
  193.          }
  194.         ifelse
  195.       }
  196.      forall
  197.         % The dictionary will be writable iff we copied it
  198.         % to update some entries.  If so, .setpagedevice will
  199.         % make it read-only again.
  200.      dup wcheck { .setpagedevice .currentpagedevice pop } if
  201.        }
  202.       ifelse
  203.     }
  204.    if
  205.  } bind odef
  206.  
  207. % The implementation of setpagedevice is quite complex.  Currently,
  208. % everything but the media matching algorithm is implemented here.
  209.  
  210. % By default, we only present the requested changes to the device,
  211. % but there are some parameters that require special merging action.
  212. % Define those parameters here, with the procedures that do the merging.
  213. % The procedures are called as follows:
  214. %    <merged> <key> <new_value> -proc- <merged> <key> <new_value'>
  215. /.mergespecial mark
  216.   /InputAttributes
  217.    { dup null eq
  218.       { pop null
  219.       }
  220.       { 3 copy pop .knownget
  221.      { dup null eq
  222.         { pop dup length dict }
  223.         { dup length 2 index length add dict copy }
  224.        ifelse
  225.      }
  226.      { dup length dict
  227.      }
  228.         ifelse copy readonly
  229.       }
  230.      ifelse
  231.    } bind
  232.   /OutputAttributes 1 index
  233.   /Policies
  234.     { 3 copy pop .knownget
  235.        { dup length 2 index length add dict copy }
  236.        { dup length dict }
  237.       ifelse copy readonly
  238.     } bind
  239. .dicttomark readonly def
  240.  
  241. % Define the keys used in input attribute matching.
  242. /.inputattrkeys [
  243.   /PageSize /MediaColor /MediaWeight /MediaType /InsertSheet
  244. ] readonly def
  245. % Define other keys used in media selection.
  246. /.inputselectionkeys [
  247.   /MediaPosition /Orientation
  248. ] readonly def
  249.  
  250. % Define the keys used in output attribute matching.
  251. /.outputattrkeys [
  252.   /OutputType
  253. ] readonly def
  254.  
  255. % Define all the parameters that should always be copied to the merged
  256. % dictionary.
  257. /.copiedkeys [
  258.   /OutputDevice
  259.   .mergespecial { pop } forall
  260.   .inputattrkeys aload pop
  261.   .inputselectionkeys aload pop
  262.   .outputattrkeys aload pop
  263. ] readonly def
  264.  
  265. % Define the parameters that should not be presented to the device.
  266. % The procedures are called as follows:
  267. %    <merged> <key> <value> -proc-
  268. % The procedure leaves all its operands on the stack and returns
  269. % true iff the key/value pair should be presented to .putdeviceparams.
  270. /.presentspecial mark
  271.   .dynamicppkeys { pop false } forall
  272.             % We must ignore an explicit request for .MediaSize,
  273.             % because media matching always handles this.
  274.   /.MediaSize false
  275.   /Name false
  276.   /OutputDevice false
  277.   /PageOffset false
  278.   /PageSize false        % obsolete alias for .MediaSize
  279.   /InputAttributes false
  280.   .inputattrkeys
  281.     { dup /PageSize eq
  282.        { pop }
  283.        { { 2 index /InputAttributes .knownget { null eq } { true } ifelse } }
  284.       ifelse
  285.     }
  286.   forall
  287.   .inputselectionkeys { false } forall
  288.   /OutputAttributes false
  289.   .outputattrkeys
  290.     { { 2 index /OutputAttributes .knownget { null eq } { true } ifelse } }
  291.   forall
  292.   /Install false
  293.   /BeginPage false
  294.   /EndPage false
  295.   /Policies false
  296.     % Our extensions:
  297.   /HWColorMap
  298.     {            % HACK: don't transmit the color map, because
  299.             % window systems can change the color map on their own
  300.             % incrementally.  Someday we'll have a better
  301.             % solution for this....
  302.       false
  303.     }
  304.   /ViewerPreProcess false
  305. .dicttomark readonly def
  306.  
  307. % Define access to device defaults.
  308. /.defaultdevicename defaultdevice .devicename def
  309. /.defaultdeviceparams
  310.  { finddevice null .getdeviceparams
  311.  } bind def
  312.  
  313. % Select media (input or output).  The hard work is done in an operator:
  314. %    <pagedict> <attrdict> <policydict> <keys> .matchmedia <key> true
  315. %    <pagedict> <attrdict> <policydict> <keys> .matchmedia false
  316. %    <pagedict> null <policydict> <keys> .matchmedia null true
  317. /.selectmedia        % <orig> <request> <merged> <failed>     <-- retained
  318.             %   <attrdict> <policydict> <attrkeys> <mediakey>
  319.             %   .selectmedia
  320.  { 5 index 5 -2 roll 4 index .matchmedia
  321.         % Stack: orig request merged failed attrkeys mediakey
  322.         %   (key true | false)
  323.     { 4 index 3 1 roll put pop
  324.     }
  325.     {    % Adobe's implementations have a "big hairy heuristic"
  326.     % to choose the set of keys to report as having failed the match.
  327.     % For the moment, we report any keys that are in the request
  328.     % and don't have the same value as in the original dictionary.
  329.       5 index 1 index .knownget
  330.        { 4 index 3 1 roll put }
  331.        { 3 index exch undef }
  332.       ifelse
  333.        {    % Stack: <orig> <request> <merged> <failed> <attrkey>
  334.      3 index 1 index .knownget
  335.       { 5 index 2 index .knownget { ne } { pop true } ifelse }
  336.       { true }
  337.      ifelse        % Stack: ... <failed> <attrkey> <report>
  338.       { 2 copy /rangecheck put }
  339.      if pop
  340.        }
  341.       forall
  342.     }
  343.    ifelse
  344.  } bind def
  345.  
  346. % Apply Policies to any unprocessed failed requests.
  347. % As we process each request entry, we replace the error name
  348. % in the <failed> dictionary with the policy value,
  349. % and we replace the key in the <merged> dictionary with its prior value
  350. % (or remove it if it had no prior value).
  351. /.applypolicies        % <orig> <merged> <failed> .applypolicies
  352.             %   <orig> <merged'> <failed'>
  353.  { 1 index /Policies get 1 index
  354.     { type /integertype eq
  355.        { pop        % already processed
  356.        }
  357.        { 2 copy .knownget not { 1 index /PolicyNotFound get } if
  358.             % Stack: <orig> <merged> <failed> <Policies> <key>
  359.             %   <policy>
  360.      dup 1 ne
  361.       {    % Set errorinfo and signal a configurationerror.
  362.         % Note that we currently treat all Policy values other than 1
  363.         % the same as 0.
  364.         pop dup 4 index exch get 2 array astore
  365.         $error /errorinfo 3 -1 roll put
  366.         cleartomark
  367.         /setpagedevice load /configurationerror signalerror
  368.       }
  369.       {    % Roll back the failed request to its previous status.
  370. DEBUG { (Rolling back.\n) print pstack flush } if
  371.         3 index 2 index 3 -1 roll put
  372.         4 index 1 index .knownget
  373.          { 4 index 3 1 roll put }
  374.          { 3 index exch undef }
  375.         ifelse
  376.       }
  377.      ifelse
  378.        }
  379.       ifelse
  380.     }
  381.    forall pop
  382.  } bind def
  383.  
  384. % Prepare to present parameters to the device, by spreading them onto the
  385. % operand stack and removing any that shouldn't be presented.
  386. /.prepareparams        % <params> .prepareparams -mark- <key1> <value1> ...
  387.  { mark exch dup
  388.     {            % Stack: -mark- key1 value1 ... merged key value
  389.       .presentspecial 2 index .knownget
  390.        { exec { 3 -1 roll } { pop pop } ifelse }
  391.        { 3 -1 roll }
  392.       ifelse
  393.     }
  394.    forall pop
  395.  } bind def
  396.  
  397. % Put device parameters without resetting currentpagedevice.
  398. % (.putdeviceparams clears the current page device.)
  399. /.putdeviceparamsonly    % <device> <Policies|null> <require_all> -mark-
  400.             %   <key1> <value1> ... .putdeviceparamsonly
  401.             % On success: <device> <eraseflag>
  402.             % On failure: <device> <Policies|null> <req_all> -mark-
  403.             %   <key1> <error1> ...
  404.  { .currentpagedevice
  405.     { counttomark 4 add 1 roll .putdeviceparams
  406.       dup type /booleantype eq { 3 } { counttomark 5 add } ifelse -1 roll
  407.       .setpagedevice
  408.     }
  409.     { pop .putdeviceparams
  410.     }
  411.    ifelse
  412.  } bind def
  413.  
  414. % Try setting the device parameters from the merged request.
  415. /.trysetparams        % <merged> <(ignored)> <device> <Policies>
  416.             %   .trysetparams
  417.  { true 4 index .prepareparams
  418.             % Add the computed .MediaSize.
  419.             % Stack: merged (ignored) device Policies -true-
  420.             %   -mark- key1 value1 ...
  421.    counttomark 5 add index .computemediasize
  422.    exch pop exch pop /.MediaSize exch
  423. DEBUG { (Putting.\n) print pstack flush } if
  424.    .putdeviceparamsonly
  425. DEBUG { (Result of putting.\n) print pstack flush } if
  426.  } bind def
  427.  
  428. % Compute the media size and initial matrix from a merged request (after
  429. % media selection).
  430. /.computemediasize    % <request> .computemediasize
  431.             %   <request> <matrix> <[width height]>
  432.  { dup /PageSize get                    % requested page size
  433.    1 index /InputAttributes get
  434.      2 index (%MediaSource) get get /PageSize get    % media size
  435.                             % (may be a range)
  436.    2 index /Policies get
  437.      dup /PageSize .knownget
  438.       { exch pop } { /PolicyNotFound get } ifelse    % PageSize policy,
  439.                             % affects scaling
  440.    3 index /Orientation .knownget not { null } if
  441.    matrix .matchpagesize pop        % (can't fail)
  442.    2 array astore
  443.  } bind def
  444.  
  445. % ---------------- setpagedevice itself ---------------- %
  446.  
  447. /setpagedevice
  448.  { mark exch currentpagedevice
  449.  
  450.         % Check whether we are changing OutputDevice;
  451.         % also handle the case where the current device
  452.         % is not a page device.
  453.         % Stack: mark <request> <current>
  454. DEBUG { (Checking.\n) print pstack flush } if
  455.  
  456.    dup /OutputDevice .knownget
  457.     {        % Current device is a page device.
  458.       2 index /OutputDevice .knownget
  459.        {    % A specific OutputDevice was requested.
  460.      2 copy eq
  461.       { pop pop null }
  462.       { exch pop }
  463.      ifelse
  464.        }
  465.        { pop null
  466.        }
  467.       ifelse
  468.     }
  469.     {        % Current device is not a page device.
  470.         % Use the default device.
  471.       1 index /OutputDevice .knownget not { .defaultdevicename } if
  472.     }
  473.    ifelse
  474.    dup null eq
  475.     { pop
  476.     }
  477.     { exch pop .defaultdeviceparams
  478.         % In case of duplicate keys, .dicttomark takes the entry
  479.         % lower on the stack, so we can just append the defaults here.
  480.       .requiredattrs { } forall .dicttomark
  481.     }
  482.    ifelse
  483.  
  484.         % Check whether a viewer wants to intervene.
  485.         % We must check both the request (which takes precedence)
  486.         % and the current dictionary.
  487.         % Stack: mark <request> <orig>
  488.    exch dup /ViewerPreProcess .knownget
  489.     { exec }
  490.     { 1 index /ViewerPreProcess .knownget { exec } if }
  491.    ifelse exch
  492.  
  493.         % Construct a merged request from the actual request plus
  494.         % any keys that should always be propagated.
  495.         % Stack: mark <request> <orig>
  496. DEBUG { (Merging.\n) print pstack flush } if
  497.  
  498.    exch 1 index length 1 index length add dict
  499.    .copiedkeys
  500.     {        % Stack: <orig> <request> <merged> <key>
  501.       3 index 1 index .knownget { 3 copy put pop } if pop
  502.     }
  503.    forall
  504.         % Stack: <orig> <request> <merged>
  505.    dup 2 index
  506.     {        % stack: <orig> <request> <merged> <merged> <rkey> <rvalue>
  507.       .mergespecial 2 index .knownget { exec } if
  508.       put dup
  509.     }
  510.    forall pop
  511.         % Hack: if FIXEDRESOLUTION is true, discard any attempt to
  512.         % change HWResolution.
  513.    FIXEDRESOLUTION { dup /HWResolution undef } if
  514.  
  515.         % Select input and output media.
  516.         % Stack: mark <orig> <request> <merged>
  517. DEBUG { (Selecting.\n) print pstack flush } if
  518.  
  519.    0 dict    % <failed>
  520.    1 index /InputAttributes .knownget
  521.     { 2 index /Policies get
  522.       .inputattrkeys (%MediaSource) cvn .selectmedia
  523.     } if
  524.    1 index /OutputAttributes .knownget
  525.     { 2 index /Policies get
  526.       .outputattrkeys (%MediaDestination) cvn .selectmedia
  527.      } if
  528.    3 -1 roll 4 1 roll        % temporarily swap orig & request
  529.    .applypolicies
  530.    3 -1 roll 4 1 roll        % swap back
  531.  
  532.         % Construct the new device, and attempt to set its attributes.
  533.         % Stack: mark <orig> <request> <merged> <failed>
  534. DEBUG { (Constructing.\n) print pstack flush } if
  535.  
  536.    currentdevice .devicename 2 index /OutputDevice get eq
  537.     { currentdevice }
  538.     { 1 index /OutputDevice get finddevice }
  539.    ifelse
  540.         %**************** We should copy the device here,
  541.         %**************** but since we can't close the old device,
  542.         %**************** we don't.  This is WRONG.
  543.     %****************copydevice
  544.    2 index /Policies get
  545.    .trysetparams
  546.    dup type /booleantype ne
  547.     {        % The request failed.
  548.         % Stack: ... <orig> <request> <merged> <failed> <device>
  549.         %   <Policies> true mark <name> <errorname> ...
  550. DEBUG { (Recovering.\n) print pstack flush } if
  551.       counttomark 4 add index
  552.       counttomark 2 idiv { dup 4 -2 roll put } repeat
  553.       pop pop pop
  554.         % Stack: mark ... <orig> <request> <merged> <failed> <device>
  555.         %   <Policies>
  556.       6 2 roll 3 -1 roll 4 1 roll
  557.       .applypolicies
  558.       3 -1 roll 4 1 roll 6 -2 roll
  559.       .trysetparams        % shouldn't fail!
  560.       dup type /booleantype ne
  561.        { 2 { counttomark 1 add 1 roll cleartomark } repeat
  562.          /setpagedevice load exch signalerror
  563.        }
  564.       if
  565.     }
  566.    if
  567.  
  568.         % The attempt succeeded.  Install the new device.
  569.         % Stack: mark ... <merged> <failed> <device> <eraseflag>
  570. DEBUG { (Installing.\n) print pstack flush } if
  571.  
  572.    pop 2 .endpage
  573.     { 1 true .outputpage
  574.       (>>setpagedevice, press <return> to continue<<\n) .confirm
  575.     }
  576.    if
  577.         % .setdevice clears the current page device!
  578.    .currentpagedevice pop exch
  579.    .setdevice pop
  580.    .setpagedevice
  581.  
  582.         % Merge the request into the current page device.
  583.         % Stack: mark ... <merged> <failed>
  584.    exch currentpagedevice dup length 2 index length add dict copy copy
  585.         % Initialize the default matrix, taking media matching
  586.         % into account.
  587.    .computemediasize pop initmatrix concat
  588.    dup /PageOffset .knownget
  589.     {        % Translate by the given number of 1/72" units in device X/Y.
  590.       dup 0 get exch 1 get
  591.       2 index /HWResolution get dup 1 get exch 0 get
  592.       4 -1 roll mul 72 div   3 1 roll mul 72 div
  593.       idtransform translate
  594.     }
  595.    if
  596.         % We must install the new page device dictionary
  597.         % before calling the Install procedure.
  598.    dup .setpagedevice
  599.    .setdefaultscreen    % Set the default screen before calling Install.
  600.    dup /Install .knownget { exec } if
  601.    matrix currentmatrix .setdefaultmatrix
  602.         % Erase and initialize the page.
  603.    erasepage initgraphics
  604.    .beginpage
  605.  
  606.         % Clean up, calling PolicyReport if needed.
  607.         % Stack: mark ... <failed> <merged>
  608. DEBUG { (Finishing.\n) print pstack flush } if
  609.  
  610.    exch dup length 0 ne
  611.     { 1 index /Policies get /PolicyReport get
  612.       counttomark 1 add 2 roll cleartomark
  613.       exec
  614.     }
  615.     { cleartomark
  616.     }
  617.    ifelse
  618.  
  619.  } odef
  620.  
  621. end                % level2dict
  622. .setlanguagelevel
  623.